home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kit PC World De Ampliacion De Windows 95
/
Kit PC World de ampliacion de Windows 95.iso
/
lotus
/
lotus031.dsk
/
120.LSS
< prev
next >
Wrap
Text File
|
1995-08-09
|
1KB
|
52 lines
Use "av_mod"
Sub Initialize
ClientMainWinClass = "FLWApp"
ClientID = AN_AVERY
ClientModName = "av_mod"
ClientLotusAppID = "FLW"
ShowMeModName = "120"
AnimVersionNum = .58
NumFramesThisAnim = 3
AnimationType = "QuickDemo"
SampleFile = "pages.prz"
AnimName = GetString( "1200000", IResult% )
End Sub
Public Sub ShowMe (theNextStep As Integer)
GetCursorPos TempPos
CursorPosForStep(theNextStep) = TempPos
Select Case theNextStep
Case 1
StepsText = GetString( "1201001", IResult% )
X = DoWhereIs (VIEW_TAB_CONTROL,"",VIEW_TAB_SORTER,0,0,0,ClientID)
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
DoMouse WM_LBUTTONUP%, 0
Exit Sub
Case 2
StepsText = GetString( "1201002", IResult% )
X = DoWhereIs (SORTER_PAGE,"",1,0,0,0,ClientID)
ShowTextBubble StepsText, .5, .5, NorthEast
HideTextBubble
MoveToObj Center
DoMouse WM_LBUTTONDOWN%, 0
Exit Sub
Case 3
StepsText = GetString( "1201003", IResult% )
X = DoWhereIs (SORTER_PAGE,"",4,0,0,0,ClientID)
ShowTextBubble StepsText, 1.2, .5, NorthEast
HideTextBubble
MoveToObjRel 120 , 50
DoMouse WM_LBUTTONUP%, 0
Exit Sub
End Select
End Sub